-- card: 2858 from stack: in
-- bmap block id: 2229
-- flags: 0000
-- background id: 2777
-- name: 
----- HyperTalk script -----
on openCard
  choose browse tool
  click at the loc of card field Fig
end openCard



-- part 6 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=83 top=196 right=210 bottom=100
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Inch
----- HyperTalk script -----
on mouseUp
  set hilite of card button Centi to false
  delete line 1 of field Type
  put "inches" into field Type
  delete line 1 of card field Fig
  click at the loc of card field Fig
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=210 top=196 right=210 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Centi
----- HyperTalk script -----
on mouseUp
  set hilite of card button Inch to false
  delete line 1 of field Type
  put "centimeters" into field Type
  delete line 1 of card field Fig
  click at the loc of card field Fig
end mouseUp



-- part 8 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=224 top=214 right=237 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 34
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Fig


-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=326 top=239 right=262 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Convert
----- HyperTalk script -----
on mouseUp
  Global Wee
  Global Wow
  if hilite of card button Inch is true then put card field Fig into Wow
  multiply Wow by 6
  if hilite of card button Centi is true then put card field Fig into Wee
  multiply Wee by 2.3622
  put card field Fig into card field AFig
  if card field Fig is "1" then put "inch is" into field AType
  else put field Type && "is" into field AType
  if hilite of card button Inch is true then put Wow into card field Pica
  else if hilite of card button Centi is true then put Wee into card field Pica
  global Name
  put "picas, " & Name & "." into card field N
end mouseUp









-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=28 top=262 right=285 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 34
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: AFig


-- part 12 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=28 top=287 right=310 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 34
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Pica


-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=110 top=287 right=312 bottom=366
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 34
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: N


-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=412 top=292 right=317 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  go Home
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=457 top=293 right=318 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  answer "Are you sure you want to quit THIS?!?" with "Yes" or "Hell No!"
  if it is "Hell No!" then exit mouseUp
  else if it is "Yes" then doMenu Quit HyperCard
end mouseUp




-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=372 top=293 right=318 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go next
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=389 top=131 right=166 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AutoPicaPole
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack AutoPicaPole
end mouseUp